home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Generate / g-seed < prev    next >
Lisp/Scheme  |  1998-10-20  |  1KB  |  28 lines
  1. g-seed seed count
  2.  
  3. The random seed is an essential part of many SCOM functions. By setting the seed to a particular value the composer may recapture exactly a generative process involving some element of randomization. 
  4.  
  5. (setq len
  6.       (list
  7.        (permute-unique (qlength '(20-10000)))
  8.        (permute-unique (qlength '(20-2000)))
  9.        (permute-unique (qlength '(20-300)))
  10.        (permute-unique (qlength '(4-1)))
  11.        (permute-unique (qlength '(20-7000)))
  12.        (permute-unique (qlength '(20-[11]0000)))
  13.        (permute-unique (qlength '(20-[13]00)))
  14.        (permute-unique (qlength '(20-[17]000)))))
  15.        
  16. (append-sublist
  17.  (mapcar #'(lambda (x y)
  18.                (gen-random x 1 y))
  19.           (g-seed .23 12)
  20.           (cfunction (gen-noise-white 12 1.0 .23) len)))
  21.  
  22. => ((-1/20 3/20 -1/20) (1/20 -1/20 -1/20 -1/20 -1/20)
  23.     (2/20 -1/20 -1/20 -1/20) (-1/20 -1/20 3/20)
  24.     (-1/20 7/20 -1/20 -1/20) (11/20 -1/20 -1/20 -1/20 -1/20)
  25.     (-1/20 -1/20 7/20 -1/20) (2/20 -1/20 -1/20 -1/20)
  26.     (-1/20 -1/20 3/20) (1/4) (-1/20 3/20 -1/20) 
  27.     (17/20 -1/20 -1/20 -1/20))
  28.